home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
NAMEISIN.PPS
< prev
next >
Wrap
Text File
|
1996-08-29
|
715b
|
30 lines
;----------------------------------------------------------------------------
; Copyright(C) 1996, The AEGiS Corporation
;----------------------------------------------------------------------------
;
; FUNCTION NameIsIn()
;
; Returns true if current user's name is in the file passed as parameter
;
;----------------------------------------------------------------------------
#lib
#nouser
Declare Function NameIsIn(String File) Boolean
Function NameIsIn(String File) Boolean
String Name
Fopen 1, PPEPath() + File, O_RD, S_DN
While (!Ferr(1)) Do
FGet 1, Name
If (Left(Name, 1) <> ";") Then
If (Name = U_Name()) Then
NameIsIn = True
Break
Endif
Endif
Endwhile
Fclose 1
Endfunc